Developer CD Series 1993…ch: Other People's Memory/ADC Developer CD (1993-03) (''Other People's Memory'')_iso/Dev.CD Mar 93.iso/Development Platforms/Apple II/Essentials/MPW IIGS Interfaces/PIIGSIncludes/Locator.p

Text File | 1992-02-20 | 4.9 KB | 163 lines | [TEXT/MPS ]

{********************************************
; File: Locator.p
;
;
; Copyright Apple Computer, Inc. 1986-92
; All Rights Reserved
;
********************************************}

UNIT LOCATOR;
INTERFACE
USES TYPES;
CONST

{ Error Codes }
toolNotFoundErr = $0001;
funcNotFoundErr = $0002;
sysStrtMtErr = $0100;  { can't mount system startup volume }
tlBadRecFlag = $0103;  { StartStop record invalid }
tlCantLoad = $0104;  { A tool cannot be loaded }
toolVersionErr = $0110;
messNotFoundErr = $0111;
messageOvfl = $0112;  { No message numbers available }
nameTooLong = $0113;  { Message name too long }
reqNotAccepted = $0120; { SendRequest request not accepted }
duplicateName = $0121; { duplicate name for AcceptRequests }
invalidSendRequest = $0122; { bad combo of target and sendHow }

{ MessageCenter Codes }
fileInfoType = $0001;  { Message type parameter }
addMessage = $0001;  { action parameter }
getMessage = $0002;  { action parameter }
deleteMessage = $0003;  { action parameter }
fileInfoTypeGS = $0011;    { Message type parameter }

{ GetMsgHandle flags values }
gmhByIndex = 0;
gmhByType = 1;
gmhByName = 2;

{ SendRequest/AcceptRequests codes }
systemSaysBeep = $0001; { used by SysBeep2 }
systemSaysUnknownDisk = $0002; { used by HandleDiskInsert }
srqGoAway = $0003;
srqGetrSoundSample = $0004;
srqSynchronize = $0005;
srqPlayrSoundSample = $0006;
systemSaysNewDeskMsg = $0008;
systemSaysEjectingDev = $000E;
systemSaysDeskStartUp = $0502;
systemSaysDeskShutDown = $0503;
systemSaysFixedAppleMenu = $051E;
systemSaysMenuKey = $0F01;

{ SendRequest sendHow values }
stopAfterOne = $8000;
sendToAll = 0;
sendToName = 1;
sendToUserID = 2;

{ StartUpTools flag bits }
leaveScreenClean = $0004;
openResAsAllowed = $0008;
noResourceMgr = $0010; { for ShutDownTools, too }

{ TLMountVolume Codes }
mvReturn = $0001;  { like ok for dialogs }
mvEscape = $0002;  { like cancel for dialogs }

{ Tool Set Spec Codes }
sysTool = $0000;
userTool = $8000;
{$IFC UNDEFINED theToolsLength }  { ToolTable - default number of ToolSpecs }
theToolsLength = $0010;
{$SETC theToolsLength := 0}
{$ENDC}

TYPE
MessageRecHndl = ^MessageRecPtr;
MessageRecPtr = ^MessageRec;
MessageRec = RECORD
    messageNext : MessageRecHndl;
    messageType : Integer;
    messageData : Integer;
    fileNames : PACKED ARRAY[1..1] OF Str255;
END;

wStringHndlPtr = ^wStringHndl;
wStringHndl = ^wStringPtr;
wStringPtr = ^wString;
wString = RECORD
    length: Integer; { Number of Chars in text field }
    text: Packed Array [1..255] of Char;
end;

MessageRecGSHndl = ^MessageRecGSPtr;
MessageRecGSPtr = ^MessageRecGS;
MessageRecGS = RECORD
    reserved    : LongInt;    { reserved }
    messageType    : Integer;
    printFlag    : Integer;
    fileNames    : Packed Array [1..1] of wString;
End;

ToolSpec = RECORD
    toolNumber : Integer;
    minVersion : Integer;
END;
ToolTablePtr = ^ToolTable;
ToolTable = RECORD
    toolCount : Integer;
    theTools : ARRAY[1..theToolsLength] OF ToolSpec;
END;
StartStopRecordPtr = ^StartStopRecord;
StartStopRecord = RECORD
    flags : Integer;
    videoMode : Integer;
    resFileID : Integer;
    dPageHandle : Handle;
    numTools : Integer;
    theTools : ARRAY[1..theToolsLength] OF ToolSpec;
END;

srqGoAwayOutPtr = ^srqGoAwayOut;
srqGoAwayOut = RECORD
    recvCount: integer;
    resultID: integer; { returned UserID }
    resultFlags: integer; { returned flags: bit 15 = Restartable, 14-0=reserved }
END;

ResponseRecord = Longint ;

FUNCTION GetFuncPtr ( userOrSystem:Integer; funcTSNum:Integer) : Ptr;
FUNCTION GetTSPtr ( userOrSystem:Integer; tSNum:Integer) : Ptr;
FUNCTION GetWAP ( userOrSystem:Integer; tSNum:Integer) : Ptr;
PROCEDURE LoadOneTool ( toolNumber:Integer; minVersion:Integer);
PROCEDURE LoadTools ( theToolTablePtr:ToolTablePtr);
FUNCTION MessageByName ( createItFlag:Boolean; recordPtr:Ptr) : ResponseRecord ;
PROCEDURE MessageCenter ( action:Integer; messagetype:Integer; messageHandle:MessageRecHndl)  ;
PROCEDURE RestoreTextState ( stateHandle:Handle);
FUNCTION SaveTextState  : Handle ;
PROCEDURE SetDefaultTPT;
PROCEDURE SetTSPtr ( userOrSystem:Integer; tsNum:Integer; fptablePtr:FPTPtr)  ;
PROCEDURE SetWAP ( userOrSystem:Integer; tSNum:Integer; waptPtr:Ptr)  ;
PROCEDURE ShutDownTools ( startStopDesc:RefDescriptor; startStopRef:Ref)  ;
FUNCTION StartUpTools ( userID:Integer; startStopRefDesc:RefDescriptor; startStopRef:Ref) : Ref ;
PROCEDURE TLBootInit;
FUNCTION TLMountVolume ( whereX:Integer; whereY:Integer; line1:Str255; line2:Str255; but1:Str255; but2:Str255) : Integer ;
PROCEDURE TLReset;
PROCEDURE TLShutDown;
PROCEDURE TLStartUp;
FUNCTION TLStatus  : Boolean ;
FUNCTION TLTextMountVolume ( line1:Str255; line2:Str255; but1:Str255; but2:Str255) : Integer ;
FUNCTION TLVersion  : Integer ;
PROCEDURE UnloadOneTool ( toolNumber:Integer)  ;

FUNCTION GetMsgHandle(flags:integer; messageRef: LongInt): MessageRecHndl;
PROCEDURE AcceptRequests(nameString:StringPtr; userID:integer; requestProc:WordProcPtr);
PROCEDURE SendRequest(reqCode:integer; sendHow:integer; target, dataIn: UNIV LongInt; dataOut: Ptr);

IMPLEMENTATION
END.